home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / tex-k / tex-k-archive.past / tex-k-archive.gz / tex-k-archive / 000319_bon@LTE.E-TECH…uni-erlangen.de_Tue, 15 Feb 1994 21:42:50 +0100.msg < prev    next >
Internet Message Format  |  1994-10-11  |  9KB
  1. Received: from lte.lte.e-technik.uni-erlangen.de (lte.e-technik.uni-erlangen.de) by cs.umb.edu with SMTP id AA14266
  2.   (5.65c/IDA-1.4.4 for <tex-k@cs.umb.edu>); Tue, 15 Feb 1994 18:35:11 -0500
  3. Message-Id: <199402152335.AA14266@cs.umb.edu>
  4. Received: by lte.lte.e-technik.uni-erlangen.de
  5.     (1.37.109.8/16.2) id AA15013; Tue, 15 Feb 1994 21:42:50 +0100
  6. Date: Tue, 15 Feb 1994 21:42:50 +0100
  7. From: Uwe Bonnes <bon@LTE.E-TECHNIK.uni-erlangen.de>
  8. To: tex-k@cs.umb.edu
  9. Subject: Making xdvi understand \psfig{...,angle=xx}
  10.  
  11. Appended you find a patch to make xdvik-1.6 understand the angle option from
  12. psfig 1.10.
  13.  
  14.  
  15.  
  16. Uwe Bonnes  bon@lte.e-technik.uni-erlangen.de
  17.  
  18. *** tpic.cln.c    Tue Feb 15 20:59:13 1994
  19. --- tpic.c    Tue Feb 15 20:14:48 1994
  20. ***************
  21. *** 429,434 ****
  22. --- 429,436 ----
  23.       else if (strncmp(orig_cp, "ps::[begin]", 11)==0) psfig_setup(orig_cp);
  24.       else if (strncmp(orig_cp, "ps::[end]", 9) == 0) /* nop */ ;
  25.       else if (strncmp(orig_cp, "ps: plotfile ", 13) == 0) psfig(orig_cp);
  26. +     else if (strncmp(orig_cp, "ps::", 4)==0) psfig_setup_angle(orig_cp); 
  27. +             /* check as last ps:: option! */
  28.       else if (!hush_spec_now)
  29.           Fprintf(stderr, "%s:  special \"%s\" not implemented\n", prog,
  30.           orig_cp);
  31. *** epsf.cln.c    Tue Feb 15 18:55:23 1994
  32. --- epsf.c    Tue Feb 15 21:39:55 1994
  33. ***************
  34. *** 104,113 ****
  35.     }
  36.   }
  37.   
  38.   struct cache_node {
  39.     char   *filename;
  40.     time_t mtime;
  41. !   float  scale;
  42.     int    resolution;
  43.     struct bitmap *bm;
  44.     struct cache_node *next;
  45. --- 104,133 ----
  46.     }
  47.   }
  48.   
  49. + /*
  50. +  * Simple sscanf version of finding psfig angle parameters.
  51. +  */
  52. + static Boolean
  53. + parse_psfig_angle(special,angle)
  54. +   char *special;
  55. +   float  *angle;
  56. +  
  57. + {
  58. +   if (no_epsf) return;
  59. +   if (sscanf(special, "ps:: %f rotate",
  60. +               angle) == 1){
  61. +     return True;
  62. +   } else 
  63. +     {
  64. +       Moan("\"%s\" not understood.", special);
  65. +       return False;
  66. +     }
  67. + }
  68. + 
  69.   struct cache_node {
  70.     char   *filename;
  71.     time_t mtime;
  72. !   float  scale, angle;
  73.     int    resolution;
  74.     struct bitmap *bm;
  75.     struct cache_node *next;
  76. ***************
  77. *** 163,177 ****
  78.    * Try to find a bitmap for psfname, at the given scale and res, in the cache. 
  79.    */
  80.   static struct bitmap *
  81. ! find_bitmap(psfname, x_scale, y_scale, res)
  82.     char  *psfname;
  83. !   float x_scale, y_scale;
  84.     int   res;
  85.   {
  86.     struct cache_node *ll, *pred;
  87.   
  88.     for (ll=cache, pred=NULL;  ll;  pred=ll, ll=ll->next) {
  89. !     if (ll->resolution==res && ll->scale==x_scale &&
  90.       strcmp(ll->filename, psfname)==0) {    
  91.         if (mod_time_of(psfname) == ll->mtime) {
  92.       return ll->bm;
  93. --- 183,197 ----
  94.    * Try to find a bitmap for psfname, at the given scale and res, in the cache. 
  95.    */
  96.   static struct bitmap *
  97. ! find_bitmap(psfname, x_scale, y_scale, angle, res)
  98.     char  *psfname;
  99. !   float x_scale, y_scale, angle;
  100.     int   res;
  101.   {
  102.     struct cache_node *ll, *pred;
  103.   
  104.     for (ll=cache, pred=NULL;  ll;  pred=ll, ll=ll->next) {
  105. !     if (ll->resolution==res && ll->scale==x_scale && ll->angle==angle&&
  106.       strcmp(ll->filename, psfname)==0) {    
  107.         if (mod_time_of(psfname) == ll->mtime) {
  108.       return ll->bm;
  109. ***************
  110. *** 198,204 ****
  111.    * Get it from the cache, or generate it using ghostscript.
  112.    */
  113.   static struct bitmap *
  114. ! get_bitmap(psfname, x_scale, y_scale, llx, lly, urx, ury)
  115.     /* 
  116.      * When psfname is interpreted at scale, it'll produce 
  117.      * a bounding box of (llx,lly), (urx,ury).  Scale and (llx,lly),(urx,ury)
  118. --- 218,224 ----
  119.    * Get it from the cache, or generate it using ghostscript.
  120.    */
  121.   static struct bitmap *
  122. ! get_bitmap(psfname, x_scale, y_scale, llx, lly, urx, ury,angle)
  123.     /* 
  124.      * When psfname is interpreted at scale, it'll produce 
  125.      * a bounding box of (llx,lly), (urx,ury).  Scale and (llx,lly),(urx,ury)
  126. ***************
  127. *** 206,212 ****
  128.      * xdvi is running at to take care of shrink_factor.
  129.      */
  130.     char *psfname;
  131. !   float x_scale, y_scale;
  132.     int llx, lly, urx, ury;
  133.   { 
  134.     int line, status;
  135. --- 226,232 ----
  136.      * xdvi is running at to take care of shrink_factor.
  137.      */
  138.     char *psfname;
  139. !   float x_scale, y_scale, angle;
  140.     int llx, lly, urx, ury;
  141.   { 
  142.     int line, status;
  143. ***************
  144. *** 215,221 ****
  145.     char *name;
  146.     struct bitmap *result;
  147.   
  148. !   result = find_bitmap(psfname, x_scale, y_scale, RESOLUTION);
  149.     if (result) return result;
  150.   
  151.     /* Build it and they will come. */
  152. --- 235,241 ----
  153.     char *name;
  154.     struct bitmap *result;
  155.   
  156. !   result = find_bitmap(psfname, x_scale, y_scale, angle, RESOLUTION);
  157.     if (result) return result;
  158.   
  159.     /* Build it and they will come. */
  160. ***************
  161. *** 265,273 ****
  162.   
  163.     tmpnam(tempfilename);
  164.     sprintf(command, 
  165. !       "(echo %d %d translate %f %f scale; cat %s; echo showpage) \
  166.   | %s -q -sDEVICE=bit -r%d -g%dx%d -sOutputFile=%s -",
  167. !       -llx, -lly, x_scale, y_scale, name, GSEXEC, RESOLUTION,
  168.         (int)result->w, (int)result->h, tempfilename);
  169.   
  170.     if (!(debug & DBG_EPS))
  171. --- 285,293 ----
  172.   
  173.     tmpnam(tempfilename);
  174.     sprintf(command, 
  175. !       "(echo %d %d translate %f %f scale %f rotate; cat %s;echo showpage) \
  176.   | %s -q -sDEVICE=bit -r%d -g%dx%d -sOutputFile=%s -",
  177. !       -llx, -lly, x_scale, y_scale, angle, name, GSEXEC, RESOLUTION,
  178.         (int)result->w, (int)result->h, tempfilename);
  179.   
  180.     if (!(debug & DBG_EPS))
  181. ***************
  182. *** 396,401 ****
  183. --- 416,422 ----
  184.       new_head->filename   = (char *) xstrdup(psfname);
  185.       new_head->mtime      = mod_time_of(psfname);
  186.       new_head->scale      = x_scale;
  187. +     new_head->angle      = angle;
  188.       new_head->resolution = RESOLUTION;
  189.       new_head->bm         = result;
  190.       new_head->next       = cache;
  191. ***************
  192. *** 441,447 ****
  193.       put_grey_rectangle(PXL_H, PXL_V - PT2PXL(ury-lly), 
  194.                  PT2PXL(urx-llx+1), PT2PXL(ury-lly+1));
  195.     } else {
  196. !     bitmap = get_bitmap(psfilename, epsf_scale, epsf_scale, llx, lly, urx, ury);
  197.       if (bitmap) {
  198.         put_bitmap(bitmap, PXL_H, PXL_V - PT2PXL(ury-lly));
  199.       } else {
  200. --- 462,468 ----
  201.       put_grey_rectangle(PXL_H, PXL_V - PT2PXL(ury-lly), 
  202.                  PT2PXL(urx-llx+1), PT2PXL(ury-lly+1));
  203.     } else {
  204. !     bitmap = get_bitmap(psfilename, epsf_scale, epsf_scale, llx, lly, urx, ury,0);
  205.       if (bitmap) {
  206.         put_bitmap(bitmap, PXL_H, PXL_V - PT2PXL(ury-lly));
  207.       } else {
  208. ***************
  209. *** 458,483 ****
  210.    * where each parameter is in scaled points (65536sp/TeXpt)
  211.    */
  212.   
  213. ! static int psfig_ok = 0;
  214.   static int psfig_llx, psfig_lly, psfig_urx, psfig_ury;
  215.   static int psfig_width, psfig_height;
  216.   
  217.   void
  218.   psfig_setup(special)
  219.     char *special;
  220.   {
  221.     if (no_epsf) return;
  222.     psfig_ok = parse_psfig_special(special, &psfig_width, &psfig_height,
  223.                                 &psfig_llx, &psfig_lly, 
  224.                                 &psfig_urx, &psfig_ury);
  225.   }
  226.   
  227.   void
  228.   psfig(special)
  229.        char *special;
  230.   {
  231.     char psfilename[256];
  232. !   float x_scale, y_scale;
  233.     struct bitmap *bitmap;
  234.     int llx, lly, urx, ury;
  235.     int width, height;
  236. --- 479,514 ----
  237.    * where each parameter is in scaled points (65536sp/TeXpt)
  238.    */
  239.   
  240. ! static int psfig_ok = 0, psfig_angle_ok = 0;
  241.   static int psfig_llx, psfig_lly, psfig_urx, psfig_ury;
  242.   static int psfig_width, psfig_height;
  243. + static float psfig_angle;
  244.   
  245.   void
  246.   psfig_setup(special)
  247.     char *special;
  248.   {
  249.     if (no_epsf) return;
  250. +   psfig_angle =0.0;  /* default angle is zero */
  251.     psfig_ok = parse_psfig_special(special, &psfig_width, &psfig_height,
  252.                                 &psfig_llx, &psfig_lly, 
  253.                                 &psfig_urx, &psfig_ury);
  254.   }
  255.   
  256.   void
  257. + psfig_setup_angle(special)
  258. +   char *special;
  259. + {
  260. +   if (no_epsf) return;
  261. +   psfig_angle_ok = parse_psfig_angle(special, &psfig_angle);
  262. + }
  263. + 
  264. + void
  265.   psfig(special)
  266.        char *special;
  267.   {
  268.     char psfilename[256];
  269. !   float x_scale, y_scale, angle;
  270.     struct bitmap *bitmap;
  271.     int llx, lly, urx, ury;
  272.     int width, height;
  273. ***************
  274. *** 485,491 ****
  275.   
  276.     if (!psfig_ok)
  277.       return;
  278. - 
  279.     if (sscanf(special, "ps: plotfile %s ", psfilename) != 1)
  280.       {
  281.         Moan("\"%s\" not understood.", special);
  282. --- 516,521 ----
  283. ***************
  284. *** 515,521 ****
  285.       put_grey_rectangle(PXL_H, PXL_V,
  286.                  PT2PXL(urx-llx+1), PT2PXL(ury-lly+1));
  287.     } else {
  288. !     bitmap = get_bitmap(psfilename, x_scale, y_scale, llx, lly, urx, ury);
  289.       if (bitmap) {
  290.         put_bitmap(bitmap, PXL_H, PXL_V);
  291.       } else {
  292. --- 545,551 ----
  293.       put_grey_rectangle(PXL_H, PXL_V,
  294.                  PT2PXL(urx-llx+1), PT2PXL(ury-lly+1));
  295.     } else {
  296. !     bitmap = get_bitmap(psfilename, x_scale, y_scale, llx, lly, urx, ury,psfig_angle);
  297.       if (bitmap) {
  298.         put_bitmap(bitmap, PXL_H, PXL_V);
  299.       } else {